E (SETQ $PRINT-BUDGET-MONTHLY nil)
READ (SALARY IN DSK (PRO HE))
READ (NOW IN DSK (PRO HE))
BUDGET first-year (NOW1 OUT DSK (PRO HE))
BUDGET second-year (NOW2 OUT DSK (PRO HE))
BUDGET third-year (NOW3 OUT DSK (PRO HE))